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COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

Program No. Date 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

C om m ent . 

2. Does the program do what the abstract says? Yes No_ 

Commen t 

3. Is the description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

C om m ent 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

' Comment 

9. Were all necessary parts of the program received? Yes No- 

C om m ent 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

Company 

Mr. Richard L. Pratt 

Data Corporation Address 

7500 Old Xenia Pike 

Dayton, Ohio 45432 Users Group Code 



THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AND 
EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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PART I - INTRODUCTION 



Least Cost Estimating and Scheduling (LESS) refers to a management science 
technique for analyzing certain business projects. The three phases of this 
analysis are (1) planning, (2) scheduling, and (3) determining project cost 
to completion time relationships. The first two phases, termed here as 
MISS LESS and commonly called arrow diagram planning and critical path 
scheduling, are also the basis of many similar business management 
methods such as the Program Evaluation and Review Technique (PERT). 

This report states the rules for constructing an arrow diagram, and describes 
an IBM 1620 program for scheduling. There are no restrictions on numbering 
of jobs (except all numbers are less than 2000) or on the order of input. For 
a 20K computer, the sum of jobs and nodes may be as high as 1614. The 
program will run on basic paper tape or card systems. 

This program should be considered a major revision of program file 10. 3.002 
for the 1620 paper tape system and a minor revision of program file number 
10.3.003 for the 1620 card system. For paper tape systems, this program 
introduces the use of random node numbering with variable storage of jobs 
and nodes. For both systems the input format has been made compatible, 
the maximum node number has been increased to 1999 and typed output is 
available . 
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PART II - ARROW DIAGRAM PLANNING 



Fundamental to the technique being described is a graphical representation of 
any project by an arrow diagram which defines all jobs in the project and the 
order in which they must be done. Figure 1 is such a diagram, which repre- 
sents the sequence of jobs necessary to replace a pipe line. This diagram will 
be used to illustrate several facts concerning arrow diagramming. 

(1) Every job is represented by an arrow, and denoted by the numbers 
at the tail and head of the arrow. This set of numbers need not 
be unique. 

ex. Job (12, 14) ia a pressure test. 



(2) Jobs whose heads bear the same number as the tail of a given 
job must immediately preceed the given job. 

ex. Job (11, 12) preceeds job (12, 14). That is (12, 14) cannot 
be started until (11, 12) is finished. 

(3) Jobs whose tails bear the same number as the head of a given 
job must immediately succeed the given job. 

ex. Job (14, 15) succeeds job (12, 14) and may not be started 
until (12, 14) and (13, 14) are finished. 

(4) J obs whose tails bear the same number may be done concurrently, 
ex. Jobs (11,12) and (11,13) may be done concurrently. 

(5) Dummy jobs (denoted by dotted line arrows) are inserted to 
complete the logic of an arrow diagram. 

ex. Dummy (6, 8) shows that the jobs immediately preceeding 
job (8, 11) have heads numbered 6 as well as 8. That is jobs 
(5,6), (4,6), and (4,8) preceed job (8, 11). 

The rules presented thus far allow descriptions of the technological sequence 
of jobs within * project. Actually, this planning should include a time esti- 
mate of each diagrammed job. A few additional rules will now be given that 
allow the injection of the time element. 

(6) Every job has an estimated elapsed time associated with it. 
In the case of dummy jobs, this time is zero. This time may 
be used along with arrow head and tail to denote a job. 

ex. The time estimated to complete the pressure test (12, 14, 1) 
is one day. 



(7) In order to later calculate start and finish dates for each job, 
the first job is usuaiyiesignated as lead time. 

ex. Job (1,2, 10) states that the project may begin on the 10th 
day of a particular calendar (or 10th hour of a clock) . That 
is the first actual jobs (2, 3, 2) and (2, 3, 1) may begin on the 
10th day. 

(8) Time restraints on the execution of certain jobs may be described 
by the use of arrows with associated times. 

ex. Restraint (1 , 5, 28) means that the old pipe line must not 
be deactivated until the 28th day. 

(9) Material delivery restraints do not always have to be tied to the 
calendar as in (8), but may be in elapsed time. 

ex. Restraint (4, 7, 30) means that the pipe will be delivered 
30 days after the completion of job (3, 4). 
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PA.iI LLx - CRITICAL PATH SCHEDULING 



The fact that scheduling has not yet been mentioned is a unique advantage of this 
technique - planning and scheduling are recognized as two separate functions. 
After completing the arrow diagram and estimating the duration of each job, 
a schedule (in the form of a detailed time table ) is easily obtained by a few 
simple calculations. The following nomenclature is used. 



I Tail of a job, dummy, or restraint arrow. 

J Head of a job, dummy, or restraint arrow. 

N A Node. Either the head or tail of an arrow. 

D (I, J) Estimated elapsed time for job (I, J). 

TI (N) The earliest time that a job whose tail is N may start 

and assure minimum project completion time. 

TJ (N) The latest time that a job whose head is N may finish 
and assure minimum project completion time. 

ES Earliest start time. Same as TI (N) 

EF Earliest finish time . 

LS Latest start time. 

LF Latest finish time. Same as TJ (N) 

TF Total float time. The length of time that the start of a job 

may be delayed without changing the minimum project 
completion time. 

FF Free float time. The length of time that the start of a job 

may be delayed without changing ES for another job. 

X Minimum project completion time. 



The following steps are followed to calculate a time table for the project 
diagrammed in Figure 2. 

(1) Place the planning results in a table like Table 1A. 

(2) Set up a row in Table 2 for each node in the diagram. 
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(3) Compute the TI (N) value in Table 2 by first setting 

TI (First Node) = and then generating possible values 
of TI (J) = TI (I) + D (I, J). The largest such value of 
TI (J) is the correct value for a given node, 
ex. TI (1) =@ 

TI (2) I TI (1) + D (1,2) = + 3 =(p= TI (2) 

TI (3) =" TI (1) + D (1 , 3) = + 9 =@ = TI (3) 

TI (3) I TI (2) + D (2, 3) = 3 + 4 = 7 

TI (5) = TI (2) + D (2, 5) = 3 + 7 = 10 

TI (4) = TI (3) + D (3, 4) = 9 + 5 = = TI (4) 

TI (5) = TI (4) + D (4.5) = 14 + 6 =@ = TI (5) 

(4) The TI value for the last node will be the minimum completion 
time for the project. 

ex. X = TI (Last Node) = TI (5) = 20 

(5) Compute TJ (N) values by setting TJ (Last Node) = X and 
generating possible values of TJ (I) = TJ (J) - D (I, J). 

The smallest such value of TJ (I) is the correct value for a 
given node. 

ex. TJ (Last Node) = X = TJ (5) = 20 

TJ (4) ' TJ (5) - D (4, 5) = 20 - 6 = 14, etc. 

(6) With Table 2 complete, Table 1 B can be constructed by use 
of the following relationships. 

ex. For job (1,2) 

ES = TI (I) = TI (1) = 

EF = ES + D (I, J) = + 3 = 3 

LF = TJ (J) = TJ (2) = 5 

LS = LF - D (I, J) = 5 - 3 = 2 

TF = LS-ES = 2- 0= 2 

FF = TI (J) - EF = TI (2) - EF =3-3 = 
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The longest chain of jobs through a project is termed the "critical path." 
The jobs along this path have zero total float times and are marked by an 
asterisk in Table 1 B. Any delay in the starting or completion of these 
jobs will delay completion of the project by a like amount of time. On the 
other hand some of the jobs are floaters and may be delayed a limited amount 
without effecting the project completion date. 
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PART IV - NOTES ON THIS PROGRAM 



A. Node Numbering 

In many previous programs of this sort the jobs had to be numbered 
so that the head of an arrow (J) was always greater than the tail (I) 
of that arrow. In addition input cards had to be in J sequence within 
I sequence with no missing I values. These restrictions allowed 
checking arrow diagram logic by a sequence check of I values and a 
test of I against J. In this program another method is used for 
checking logic that removes these restrictions. 

As long as none of the restrictions of Part II are violated, I and J 
may be any four digit numbers less than 2000. However, the restric- 
tions on maximum project size are in terms of the highest numbered 
node and not in terms of the total number of nodes, so it is some- 
times necessary to use the smallest numbers available for I and J. 
There is also a slight speed advantage in putting the jobs in approxi- 
mately the same order as the previous restrictions required. 

B. Program Capacity 

For a 20, 000 digit core memory machine, the sum of the number of 
the highest numbered node and the number of jobs must be 1614 or 
less. For 40,000 digits of storage this restriction is 3614 and for 
60,000 digits it is 5614. The highest possible numbered node is 
1999. 

C. Machine Requirements 

1620 Data Processing System 

1622 Card Read Punch or 1621 Paper Tape Reader 

1623 Additional Core Memory is optional 
No special features 
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PART V - INPUT 



The input to this program contains three types of data cards or card images 
on paper tape. Type 1 and 2 cards may be arranged in any desired order. 
See Appendix A for sample problem input. 

Type 1 - Heading or description cards 

These are identified by some character in column 1, other than a blank or 
numeric digit. The remainder of the card may be punched with any infor- 
mallw„ desired. The identifying character ir. column 1 may be different 
for each type 1 card. These may be any length up to 80 characters long 
for tape records. 

Type 2 - Job description cards 

There is one of these for every job in the project. Blanks in numeric fields 
are taken as zeros. Tape records must be at least 50 characters long, but 
not over 80 characters. 



Columns 



1 


- 4 


Tail of the job arrow - I {1999 or less) 


5 


- 8 


Head of the job arrow - J (1999 or less) 


9 


- 12 


Time duration of the job - D (I, J) 


13 


- 17 


Cost of the job 


18 


- 50 


Description of the job and miscellaneous data 


51 


- 80 


Not used - may contain anything 



Type 3 - End of the project 

This is the last card in the input deck and should be blank. Tape record 
should be at least 8 characters long. 
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PART VI - OPERATING INSTRUCTIONS 



A. Program Deck 

The SPS listing of this program is in Appendix C. The condensed pro- 
gram deck (listing in Appendix D) consists of 90 cards numbered 00 
through 89 in columns 79 - 80. The program tape was formed by 
putting these cards on tape with a slightly different load routine. 

B. Console Settings 

PARITY Switch - STOP 

O FLOW Switch - STOP 

I/O Switch - STOP 

Program Switch 1 - ON Typed Output 

OFF Card Output 
Program Switch 2 - ON Tape Input 



OFF Card Input 

C. Card Procedure 

Load Program Deck - Depress RESET, place program deck in 
read hopper, depress LOAD. To read final program card, 
depress READER START. Computer then halts when program 
is loaded. 



Data Pass I - Place data deck in read hopper, press READER 
START and computer START. To read the final data card, 
depress READER START. Computer reads jobs, does error 
analysis, and either halts or prints an error message and halts. 

Data Pass II - If no errors were discovered, place data deck 
in read hopper and blank cards in punch hopper. Press READER 
START, PUNCH START, and computer START. To read the 
final data card, depress READER START. 



11 



© 



rhgfed 
7\ 



Tape PrVedure 




Load Program Tape ^Sfieady program t^pe in reader, RESET, 
INSERT, 36 00D00 003OTL RELEASE/5TART. Computer halts 
a when program is loaded. 

*> Data Pass I - Ready data tapawb reader, press START. Computer 

reads jobs, does error analysis^^nd either halts or prints an 
error message and halts 



Data Pass II - If n^rrors were disco\ered, ready data tape in 
reader, turn typewriter to a clean sheet^yand press START. 
Computer pripls report and halts. Press^TART to work next 
problem. 

Error Messages and Actions 

Error 1 - Available storage has been exceeded. The number 
of the highest numbered arrow plus the number of jobs is greater 
than 1614 (for 20,000 positions of storage). Typewriter prints 
four fields - the highest numbered node, 2 four digit fields with 
no meaning, and the number of jobs - and halts. To work the 
next project remove remainder of data from reader and press 
START. 



Error 2 - More than one "last" node (a node which is not the 
tail of some arrow) has been found. Typewriter prints 3 fields - 
the "first" node, the previous "last" node, and the last "last" 
node discovered - and halts. To work the next project INSERT 
16 01327 00016 49 00402, RELEASE, START. 



Error 3 - More than one "first" node (a node which is not the 
head of some arrow) has been found. Typewriter prints 3 
fields - the previous "first" node, the "last" node, and the 
last "first" node discovered - and halts. To work the next 
project INSERT 16 01327 00016 49 00402, RELEASE, START. 

Error 4 - A loop has been found in the arrow diagram. For 
example a series of jobs (1,2), (2, 3), and (3, 1) would be a 
loop. Typewriter prints I, J, and D for the first job where 
the error may be detected, (i.e. The earliest start for this 
job exceeds the sum of all job times.) This job need not be 
on the loop itself, but may be on a chain of jobs which passes 
through one of the nodes on the loop. To work the next project 
press START. 
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Error 5 - Available storage has been exceeded. The storing of jobs has 
destroyed the temporary table used to find "first" and "last" nodes. 
Typewriter prints 4 fields - the highest numbered node, Z four digit 
fields with no meaning, and the number of jobs - and halts. To work 
the next project remove remainder of data from reader and press 
START. 
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PART VII - OUTPUT 



With program switch 1 off, a deck of cards similar to the pass II data deck is 
produced. The type 1 output cards are unchanged. The type 2 output cards 
are identical to input in columns 1 - 50, and contain the following calculated 
quantities in columns 51-80. 



Columns 




51 


- 55 


Earliest start date 


56 


- 60 


Earliest finish date 


61 


- 65 


Latest start date 


66 


- 70 


Latest finish date 


71 


- 75 


Total float time 


76 


- 80 


Free float time 


75 




Contains * if this is 



There are no type 3 cards in the output deck. The last output card is a type 
1 card containing project cost and completion date. By letting the first 
column of the output cards be a printer format control, any desired listing 
may be developed. 

With program switch 1 on, this same information is typed out. 
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PART VIII - SUGGESTIONS 



A. Additional or Special Output 

The second pass of data controls the amount of output. For example 
if you do not wish to include dummy jobs in the printed report, omit 
them from the data deck in the second data pass. If you wish to pre- 
pare several reports on one project, it is possible to make several 
second passes. Prepare a transfer card with 49 02030 0000 in columns 
1 - 12, and place it on top of the pass 2 deck. Press RESET and 
LOAD to execute another second pass. 

B. Least Cost Estimating 

Repeated applications of this program will give an idea of how project 
completion time varies with cost. First schedule the project with 
normal job time and normal costs, then compress the schedule along 
the critical path, which shortens the overall project time at the expense 
of increasing some job costs. Running the schedule again will show the 
new project time and cost and the new critical path. If the assumption 
is made that cost of a job varies linearly with completion time between 
the limits of normal job time and crash time, this estimating may be 
done automatically by means of a specialized parametric linear pro- 
gramming algorithm. In either case a series of project durations are 
obtained as a function of direct job costs. By combining these with 
the indirect costs for overhead, penalties, etc. , the least cost may be 
estimated. 
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LISTING OF SAMPLE DATA FOR CRITICAL PATH SCHEDULING 



1 2345678 
1214567B* 123456789 123456789 123456789 123456789 123456789 123456789 123456789 

SCHFOULE REPLACEMENT OF A PIPE LINE - FIGURE 1 

- I J COST DESCRIPTION OF JOBS ES EF LS LF TF FF 



1 


2 


10 




LEAD TIME 


1 


9 


28 




TIME AVAILABLE 


1 


15 


60 




DESIRED COMPLETION 


2 


3 


1 


25 


ASSEMBLE CRFWS 


2 


3 


2 


300 


MEASURE AND SKFTCH 


3 


4 


1 


100 


OEVELOP MATERIAL LIST 


4 


5 








4 


6 


*» 


300 


ERfcCT SCAFFPir 


4 


7 


30 


850 


PROCURE PIPE 


4 


8 


45 


300 


PROCURE VALVrS 


5 


6 


1 


100 


DEACTIVATE LINF 


6 


8 








6 


19 


6 


400 


REMOVE OLD PIPE 


7 


19 


5 


1200 


PREFAB SECTIONS 


8 


11 


1 


100 


PLACE VALVES 


19 


20 


6 


800 


PLACE NEK PIPE 


20 


11 


2 


100 


WELD PIPE 


11 


12 


1 


100 


FII UP 


11 


13 


4 


300 


INSULATE 


12 


13 








12 


14 


1 


50 


PRESSURE TEST 


13 


14 


1 


100 


REMOVE SCAFFOLD 


14 


15 


1 


100 


CLEAN UP 



- I 

1 
1 

2 

3 
4 



SA«»»LE rHi.HL- H - Fir.UPL 2 
COST DESCRIPTION OF JOBS 



ES EF LS LF 



TF 



FF 



1? 34567 t, 

125456789 123456^89 12 14 5678 » 12.3<»5S7<?9 123456789 123456739 12i45G789 12->4<i£ » M 



SCHEDULE REPLACEMENT OF A PIPE LINE - FIGURE 1 



1 


J 





COST 


DESCRIPTION OF JOBS 


ES 


EF 


LS 


LF 


TF 


FF 


1 


2 


10 




LFAO TIME 




10 




10 


• 




1 


5 


28 




TIMIl AVAILABLE 




28 


16 


44 


16 




I 


15 


60 




DESIRED COMPLETION 




60 


5 


65 


5 


5 


2 


3 


1 


25 


ASSEMBLE CREWS 


10 


11 


11 


12 


1 


1 


2 


3 


2 


300 


MEASURE AND SKETCH 


10 


12 


10 


12 


• 




3 


4 


1 


100 


OCVrLOP MATERIAL LIST 


12 


13 


12 


13 


• 






5 








13 


13 


44 


44 


31 


15 


4 


6 


2 


300 


E*ECT SCAFFOLO 


13 


15 


43 


45 


30 


14 


4 


7 


30 


850 


PROCURE PIP? 


13 


43 


16 


46 


3 




4 


8 




300 


PROCURE VALVES 


13 


58 


13 


58 


• 




5 


6 


1 


100 


C c ACTIVATE LINE 


28 


29 


44 


45 


16 




6 


8 








29 


29 


58 


5B 


29 


29 


6 


19 


6 


400 


REM3VE 01 PIPE 


29 


35 


45 


51 


1* 


13 


7 


19 


5 


1200 


PKf -AB SECTIONS 


43 


48 


46 


51 


3 




8 


11 


1 


100 


PLACE VALVES 


58 


59 


56 


59 


• 




19 


20 


6 


800 


PLACE NFW Pl'i 


48 


54 


51 


57 






20 


11 


2 


100 


WFLD PIPL 


54 


56 


57 


59 


3 


3 


11 


12 


1 


100 


FIT UP 


59 


60 


62 


63 


3 
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44 02960 
33 03723 
15 0372O 
49 0297? 

15 03720 

33 03721 
44 03028 
33 03727 
15 03724 



03847 
03830 
00000 
02807 
03737 
02607 
-0010 
00000 
02807 
3842 
03730 
03726 
03723 
00000 
"OOOJ 
10000 

00000 

00000 
03727 
00000 
O000J 



B 

DORG 



09170* Z 
09180 CRR0R1 »0M 



09230 

09240 ERROR 3 
09250. £1*23 ._. 

otiii 
o«tt* 

091 M 

09234 
09260 

10010 ERR0R4 
10020 
10030 
10032 

10040 
100SO 

10060 ERROR5 

looYc em 3 
io«?t 

100T4 

10076 

10080 

11010* 

11020* 

11030* 1 

11040 

110S0 GETIJD 
11060 

11070 DAG I T 

11071 

11072 

11073 

1 1074 

11075 

11076 

11077 

11078 

11079 

1 1080 

11081 

1 1082 

11063 

110(4 

11083 

1 1086 

1 1087 

1 1088 

11089 



ER612.1Z 




OUTZ 
•-3Z 
.TP* .. ER.U2.4j 
RCTY trX: 




SUBROUTINE TO GET 1J«M*« tWO* STORAOCZ 

2 -' :.. 

'« Ht 
♦633. SUEZ 
•622. KZ 
CRITZ . 

♦623. 10Z 
D-10Z 

•tlBfDAGIT&llZ 
.CRftt 
0*0-11 
JtJ-lZ 
•644. 12 
IZ 

I-3tl.llZ 
•6 202 
•-3Z 

I-3.0.1U 

I-2Z 
•644. Jl 

Jl 

j-s.i.nz 



TO... 
IF ; 

ra ' 
tf 

SM 
TR 
TF 
TO 
▼F 

■\r 

BNF 
CF 
TDM 
8 

DORG 
TOM 

CF 
BNF 
CF 
TOM 



03020 


49 


03040 


00000 


11090 


B 


W202 


03028 








11091 


DORG 


*-S2 


03028 


15 


03724 


00000 


11092 


TOM 


J-3.0.11Z 


03040 


3 3 


03725 


ooooo 


1 1093 


CF 


J-2Z 


03052 


42 


00000 


00000 


1 1094 


BB 


I 


03056 








11110 
1 1120* 


DORG 
Z 


•-72 










11130* 


SUBROUTINE TO THA 










110*0* 


FOR 


INPUT FIELDS 










1 1150* 


Z 




03057 




00002 




1 1 160 


DS 


22 


C3058 


16 


03088 


- 37?0 


11170 TNS 


TFM 


•630. 1-32 


03070 


16 


03093 


-0101 


11180 


TFM 


•62S»«EC0R0Z 


03082 


25 


00000 


G0000 


1 1190 


TO 


2 


03094 


11 


03093 


000-2 


11200 


AM 


♦-1.2.102 


03106 


11 


0308S 


000-1 


11210 


AM 


•-18.1.10Z 


03118 


14 


03088 


- 3717 


1 122C 


CM 


•-30.COST61Z 


CM 30 


47 


0308? 


1230 


1 1230 


BNf 


•-48Z 


03142 


32 


03720 


00000 


1 1240 


SF 


J-32 


03154 


32 


03724 


00000 


11241 


SF 


J-SZ 


03166 


32 


03728 


00000 


11242 


SF 


o-sz 


03178 


32 


03732 


00000 


11243 


SF 


COST-42 


03190 


42 


00000 


00000 


11230 


r% 


Z 


03194 








1 1260 


U5RG 


•-7Z 



03196 

03200 
03212 
03224 
03236 
03248 
03260 
03272 
03284 
03296 
03304 
03304 
03316 
03328 
0.3340 
03352 
03364 
0.3376 
033(6 
03392 



03393 
03394 
03406 
0J*l§ 

03430 
03442 
.03434 



It J, 0. AND COSTZ* 



00003 

32 03841 
26 03283 
26 03290 
26 03327 
26 03334 
44 03304 

43 03304 
1* 00000 
49 03340 

33 03841 
23 03339 
1* 00000 
U 03199 

11 03852 
26 03367 

44 03212 
42 OOOfiB 



00000 
03199 
03852 
03199 
03852 
3641 
00000 
000-0 
00000 

00000 
00000 
000R0 
000-1 
000-2 
03199 

ooooo 
aoooo 



QQQ02 

4* 

24 00113 03614 
46 03922 01200 



12010* 
12020* 
12030* 
12040* 
12050* 
12060* 
12070 

12060 EDIT 

12090 

12100 

12110 

12120 

12130 

12140 

12130 ZERO 

12160 
12170 

12180 DIGIT 

12190 

12200 

12210 

12220 

12230 

12240 

11130 

lum 

12311* 
12320* 
U330 



12390 
12400 
12401 



SUBROUTINE TO TRANSFER NUMERIC F1LLZ 
AND BilMlNATE LEADING ZEROSZ 

HIGH ORDER ADDRESS OF NUMERIC IS )N*EDIT-1Z 
HIGH ORDER ADDRESS OF ALPHAMERIC IS*IN STR1PZ 
Z 

51 

ZBO-l .EDI T-1Z 

ZER066.STRIPZ 
DIGIT623.EDIT-1Z 
DIGIT630.STRIPZ 
DIGICFLAGZ 
DIGSfZ 
0.0»8Z 
DIGIT636Z 
•-3Z 
FLAQZ 

SDH-UHOZ 
STRIP.2.10Z 
•623.EDIT-1Z 

READ ROUTINE. 
Z 

ram wm&&*i 



TF 

TF 

BNF 

80 

TFM 

B 

DORG 

CF 

TO 

TFM 

AM 

AM 

TF 

BNF 

ft* 



TITLE* CARDS MAY BE INTERSPERSED WITH JOBSZ 



C RECORD* 14, 2 162 
BE CNDZ 



03502 39 00101 00100 

03514 49 03394 00300 

1)3.522 ... 

©3tia f 9 911MB 00000 

03SS4 *2 0900 09000 
03SM 



00101 
03839 



03701 

03723 
03727 
03731 
03736 
01737 

03742 
03747 
03732 
037S7 
03762 
03767 
03772 
03777 
03782 
03790 

03798 

03814 

03818 
03822 
03826 

03830 
03831 

03835 
03840 
03841 
03842 
03847 
038J2 
03837 
03162 



03864 
03876 



00010 

00040 



00041 



08010, 

00004 
00004 
0Q.0JQ4 



00005 
00005 

0.00Q5 
0000! 

000**; 
OOOM 
00003 
00005 
00Q05 
00908 

0000* 

00016 

00004 
00004 
00004 

00004 
00001 

00004 
OOOOf 
0OOC1 

00001 
00OC5 
00005 

ooocs 

00005 



31 J9999 00399 
45 03924 00000 




AREA AND STORAGE DEFINITI0NS2 
I 

♦ H 



12455 
12460 
12470 
12410 END 

mto 

12»O0. 
13010* 
19020* 
LJMQ* . 

f«*0 RICOUD DAS 
liilO Tttif OAt 

130500000000000 
13060 DAC 41 t PROJECT COMPLETION 

13060005759565145436300 435634 57534563495655000000000000* 

130600000000*00 •• ™±=u-,^ « ■ - 

13070 Eft OAC 
13O70M339595659O0 
13080 I DS 
13090 J OS 
13100 D OS. 

13110 COST . OS 

13111 RECMRK DC 
131112 

13112 LAMDA 
13120 Til 
13130 EF 
13140 US 
13110 TJJ 
131*0 TP 
13170 FF 
13180 TIJ 
13190 TJI 
13200 TC08T 
13200000000002 

13210 MOST DC 
13210000000002 

13211 216 DC 16. C 
1321100000000000000002 





~$MfSB40 7200 



0*»»7W>380 



13220 B JO 
13230 FIRST 
13240 LAST 
13250 K 
13251 
132312 
13260 KLAST 
14010 TEST 
14020 FLAG 
14030 CR1T 
14040 SUE 
14046 STRIP 
14090 Tl 
16060 TJ 
1*0*1* 
14062* 
14063* 

14070 MEMORY 
14080 



42 

52 
II 

1Z 
32 
32 



0*03783037910 
0603791037990 
0603799038150 



0603831038320 



FIND MEMORY SUE AND CONVERT FOR CARDS IF NEEDED2 



TR 
BNR 



19999. 399. 2Z 
•6*8 tOZ 



SO 



03888 
03900 
03912 
03924 
03936 
03948 
03960 
03972 
03984 
03996 
04008 
04020 
04032 
04044 
04056 
04068 
0408P 
04092 
0410h 
04116 
04128 
04139 

04141 



11 03870 
26 03847 
49 03948 

11 03870 
49 03864 
34 00000 
39 04141 
34 00000 
39 04199 

48 0,0000 
46 04380 
46 04068 
31 '02414 
31 02506 
31 03490 
15 03403 

31 C0100 

32 00100 

49 00402 
41 12345 
39 00101 

00001 

00029 



-0010 
03*70 

ooooo 

KOOOO 

nofloe 

00102 
00100 
001C2 
OOiOC 

ooooo 

00200 
00100 
04116 
04116 
04116 
00005 
03538 
00.100 
OOOOO 
6789C 
00400 



14090 
14100 
14110 
14120 
14130 
14131 
14132 
14133 
14134 
14135 
14140 
14150 
14160 
14170 
14180 
14190 
14200 
14210 
14220 

14230 COOUT 
14240 
14250 
142502 
14251 MESS1 



TF 
B 

AM 

B 

RCTY 
WATY 
F C T Y 
V.ATY 
H 

BC2 

BC1 

TR 

TR 

TR 

TOM 

TR 

SF 

B 

NOP 
WACO 

DC 

DAC 



•*>ii»io2 

•*3*2 

MEMORY66.20000Z 
MEMORY* 
2 

MESilZ 
2 

MCSS22 

Z 

•6722 
•648Z 

WRITE1.CD0UT2 
WRITE2.CJJ0UTI 
WRl TES«C00UT2 
REA069.32 

RECORD- 1 . T I TLE-12 

RECORD-12 

JOBS! 7 

12143,678902 
RKOlfel 

1 ,?.C00UT(,23Z 



0604139041400 



29. SWITCH 1 ON FOR TYPED <JUTPUT#Z 
I425io26649634i4«0071«056»5l>0*65*6*00636b574544005*64t32 
1423137646302 

14232 MESS2 DAC 32#S»JITCH 2 ON IF UklNO TAPE INPUT82 

1425202664V634348007200565500494600646*49554700634 157*32 
1425200495557646302 
14260 OENO MfMORYZ 

142*0 L6000000030049000002 

S*001000U 3003*001 72O0»O03»O«2**OO»003»«0ll*O0*OO>*00OtO0050000OO0O00 

1020304000204060*0003060901100408021610050015102006021*142002 

704 11 28200B06 1422 300908 172630000000000*06070809001.2 141*181 5 181 12427202422 
822363520 3ii04540i63248445532494653604»465462734453627180 1234567891234362 
78902 34 S67BY0J34i6 7890 J*4567890 J«.LS67890JIUM67*90Jfcl.rtN7690JfcLMNoe90JKLMN2 
Ma00000000004«03**40**OJXLNNOPU2 L1U038800018W90O0C00000OM900036O00O0Q0O 



06041400*1900 
0*0*190**1980 



0604198042480 
0604248042620 



080009*001150 



362 
898* 




o 




22037900 3790220379803798160381800,000 160383000000170339400000Z00100462005220 
44X9*2 03 392 1103830000Q 11 703058000002 1037900373621037980373 1200100522005820 

1600636GiB6 31600648Q5B6321QQ6L3.6J)t37^21p()^^ 

32000O0UOCO02A(J37i303»m70O*»»tie^*<>JJtM*72J*4i3t«0S»i-»* 
470072o0:iOUi6038l»O37i7^S«7*)t^ma^WT5t«flMflytO 

3203727COOOC430077a0372i498ftT#iiSrtl* ;i - ~ - 

3203 723CO0OO 3 20372 100000320372 50000026037240372325037320373 7200 100778008380 
26008 -'3038472200 972038302503841 000002600904008731200904000 J0200100838008980 
31OOOOOO37?2260O928OO 873;9OpQQ (mm-%a0jtjli3000001,-- --^ - 00 1 0PJ98i^ a»JQ,, 

1603640038632103 8 39Q3i,BM aUiw|Mat i^^t8»f4w?^kwtx i om wle w*wi«H 
ii ii in mi ii mill 1 1 1 1 1 1 f^tB|fiifMiifiii ■ rnifw^w .agif a?Jfei>g 1 ioot^ao»rO>iifct«M» - 

26038350383ni603822oqSfiiffi ji8iBil!^ 

160119305863210118103830210119 363830260128101193440127000000200101122011820 
440122600000 120 38300000 14701 326013004901 11000000Z 00101182012300 
14038220000047025900120026Q38220J8154991J^4gogog2 . 00 W*ii4ftl£& - 

44011940000014038 ^«>oQo^l^isv>^^Jim^mi»^9^^^^^c^oocu»ul^mE^ 
1 60 n>»o 3 » b 7 u o 1 3 auo a»« i*oo» j) w io o uot?«^^i*aoow»t»99*»i > P if 

1 101380000 J0U038 180000 1460 13S0Qif0Or603*3a0O0003S^3#«l(KI0»fllWI X% fMVMHkf*- 

1103830000011702 7 7200000160150 503857210150403723260384000000200101446015060 
2103B4003731 160 155 30385 72 101 55203 727<!6U3777000002403777038402001015060 15660 
470162201 30024O3 830030 354 70 144601 200440 170203841490142200000200101 5**Q162j>0 
2403798038404 70265801 1001601*760m7aiOU750372726000000384020dl01*if»wW 
3203841 00C0049O 1 5 76000002 eO101*#3$i7A*0 
1601 737038372 101 73603826i&03742000001*Q17*803862210176703«2*W0101W«17*20 
2600000037422603 8 30038 353 30384 100000 170277200000160184503862200 1017620 18220 
2 10 1 84*03 7i 72603 84000000 2 20 38400 373 1160 189 3038622 101 8 9203 72 3200 101 6220 18820 
2603782 000002403 762038404601 96201 100120383000001470179801200200101882019420 
44020 180384 14V0 1774000002 Q01Q1»4JOJ»6«0 
1*01992038622 10 1991O372326000OOO»M«20»»*lOOOOO4901918OO00O2001Ol»*|ffat22O 
4*11111 111 11 1703394O000J4402446033»S303842000OO17B1058000002901Oa0 ; IiM07*<! 
16021130385 72102 1 1*03 72 3260 3 74 700000160214903857210214803 72 72001020 78021380 
2603 777000001602 lb 50 3B62 2 102 18 40 3 72 7 <: 60 3 762 000002603 7 520 3 74 7200 102 13802 1980 
2 103752037 j 12603 7 5 703 7622203 7S 70373 12603767037572203 76703 74 7200 102 198022580 
4702282 01200320384200000260 3772037772203772037S2 1*038 52OO2O120O1O22MO23 180 
17032000 374 3 170320003748 170320003753 17U32OOO3738170320O0376320O102318023 780 
17032000376844024 1403842 1600249000J4340QOOOOO 1023900 10100100200102378024380 
490203O000O0Z -102438024500 
3100100035 3816038 5*001 371 70 320003 78 3 16038520022 71 7032 000 3 73 8Z00 10244602 5060 
3400000001023900 1010010048 222222 22224900402 000002 00102506025540 
1903713000014902726000002 00102950025740 
1503T13000024902602000002 00102570025940 
15037 13000031601 3* 7000M834000O000102 39O 370 100 10038038 1900100200102590026500 
4901194000002 -102650026620 
1 5037 1 300004 3400UOU00 102 390 3 70 100 ICO 380i 72 00 10049025 300000020010265802 7180 
1 50 371 300005 34000J0001 02 39C 3 70 100 100 38U 38 1500 10049025 30000002001027 1402 7740 
26028070384 72202806038 30250 3842OQOtift2*02*26028072500000b373 7200102772028320 
260286702807120286 7000 10310372 100%W2*0288602»0725000 000 38*2200102832028920 
2*03731 03730260 372 703726440296003tT3330372300000150}7200000J200102*92029520 
49029720000C2 00102952029640 
150372OU00O033O37* 100000440 302 8037 2 7 330 372700000 1 503 7240000 JZOO 102960030200 
4903040000002 0-103020030320 
150372400000 330372 5000004200000000002 00103028030640 
160I0880372016030930O1U125O000O0000O 1103093000021 1030880000 1200103058031 180 
1403066037 3 747O30B20120O320372OOO0OOJ2O3724OO0O03203728OO0OO20O1O3 11803178O 
3203732 000004200 J0O00OO02 001031780 32020 

3203841 ouuu 02f J32B )j i I V9* t>u i 2900 38 52 260 3 32 70 3 1 992603 3 340 3 8)2200 1032000 32600 
4403 304 3 84 14io 3 3u400O0ul6u00O(.O00C0*9u 3340000002 00103260033080 
3303841 00000250 33 3900000 1600000UQ0P0 1103 19900001 110385200002200 103304033640 




WtP 

0021 
0022 
002JI 
0024 
0025 
002* 
0027 
0028 
0029 
0030 
90*1 
W#t 
0033 
0034 
0035 
003* 
003? 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0063 
0054 
0055 
0036 
0057 
0058 
0059 
00*0 



260338 7031994403212000004200000000002 001033*40 34000 

3700 101 00300 1400 101000P0460393401 30024001 15038 1446035220 12002001033940 34540 
1400 101 0000046U 35 3401*004*0339*03393340000000 1023900 10 100 1002001034 54035 140 



4903394000002 
330 3 39 2000004 20O0UO000002 

K000005 7 59 565 14 !>4 36 300 4 3 566*6 30 00000 000000000000002 
2 

005759565 145436 300*356545 753*5»3*9»*95w000000000002 

I 

M5595?5 6590070000002 



-103514035260 
00103522035460 
10103538035880 
10103588036180 
10103*18036680 
10103668037000 
10103700037200 

1 10103737037380 

2 10103783038150 

2 10103831038320 
3 1J499900 3994503924000001 10387000010260384703670490394800000200103864039240 

1 1038 70ICU0004903 86400000340000000102390414 100 1003*0000000 102200 103924039840 

39y* 19 91. - 1 Ou* fcuO 00000000460*0 BOuO 2 0046O4068O0 1003 1024 1404 1 16200103984040440 
31 02 i06U*l 163 10 3*9u041l6 1 50340 JO0O05 3 1*0100035383200 1000000020010*0*40* 1040 



4 900 4C2U00OU4 1 1 2 34567B90 3 9O01O1 ;0*Cu2 



00104104041400 
10104139041400 
10104140041980 
10104198042480 
10104248042620 
0100096001150 



0266496 34 34 8007100 56550046 56590063669745440066646357646302 
026649634 3480072005655004946006462495547006 34157452 
00495557646302 
L60000000 5004900 Out, I 

360010000 50036001 7 200 500 3600 24400 500 360031600500360000000500000000000 

1020 30400020406080003060902100406021610080015102006021814200200 
704 11 28200806 1422 300906 172630000000C008060706090012 14 16181 5 18U242720242200 
822 3635 *03 530454036324»4455324V4*53»04«4*54*2754453627180 12345*709123*5*200 

78902 34 56 7890 J 34 5 6 7890 JH4 56 7 890 JUL 56 7890 JK.LM6 7890 Jit LMN789OJH.LMNO890JK.LMN200 
M8000000000'J490 38640P90JHLMNO> J U20000L1U038B00019M9000 0000000M90003600000000 



0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
007? 
0076 
0077 
0078 
0079 
00*0 
0001 
0082 
0083 
84 
00*9 
008* 
00*7 
0088 
0089 



